home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1994 / MacHack 1994.toast / MacHack™94 / Hacks / [√] May be freely distributed / Christopher Evans / SF ClickOut / Source / SF ClickOut.c next >
Encoding:
C/C++ Source or Header  |  1994-06-25  |  11.7 KB  |  502 lines  |  [TEXT/KAHL]
  1. /*
  2.     SF ClickOut.c
  3.     
  4.     Example extension. Demonstrates use of PatchWorks trap patching
  5.     system to patch InitApplication. Uses new GenericPatch class.
  6.     
  7.     by Christopher Evans.
  8.     
  9.     © 1994 Natural Intelligence, Inc.
  10. */
  11.  
  12. #include <string.h>
  13. #include <Notification.h>
  14. #include <Traps.h>
  15. #include <stdarg.h>
  16. #include <stdio.h>
  17. #include <stddef.h>
  18. #include <Processes.h>
  19. #include <GestaltEqu.h>
  20. #include <Exception.h>
  21. #include <Extension.h>
  22. #include <GenericPatch.h>
  23. #include "SF ClickOut.h"
  24. #include <SetupA4.h>
  25. #include <LowMem.h>
  26.  
  27.  
  28. static Pack3Patch *thePatch = 0;
  29. static SystemEventPatch *sePatch = 0;
  30. static CloseWindowPatch *cwPatch = 0;
  31. static BringToFrontPatch *btfPatch = 0;
  32.  
  33. #define optionKeyCode 0x003a
  34.  
  35. void ShowIconFamily(short which);
  36.  
  37. extern pascal short    NewDialogHook(short item, DialogPtr theDialog, void *yourDataPtr);
  38. extern pascal short OldDialogHook(short item, DialogPtr theDialog);
  39. extern void    StandardToSFReply(StandardFileReply *newStyle, SFReply *oldStyle);
  40. pascal OSErr DataSelector(OSType selector, long    *response);
  41. void    InstallSelector(void);
  42.  
  43. static int dprintf(const char* format, ...);
  44. Boolean IsPressed(unsigned short k);
  45.  
  46. CloseWindowPatch::CloseWindowPatch()
  47. {
  48.     // initialize instance variables.
  49.     eventPatch = sePatch;
  50.     
  51.     // install the appropriate patch.
  52.     GenericPatch::InitGenericPatch(_CloseWindow, sizeof(CloseWindowParameters));
  53.     Install();
  54. } 
  55.  
  56. void CloseWindowPatch::Behavior()
  57. {
  58.     CloseWindowParameters* params;
  59.     
  60.     WindowPeek        front, tmpFinderWindow;
  61.     
  62.     
  63.     params = (CloseWindowParameters*)itsFrame->parameters;
  64.     
  65.     if(params->theWindow == eventPatch->frontFinderWindow) {
  66.         eventPatch->frontFinderWindow = ((WindowPeek)params->theWindow)->nextWindow;
  67.     }        
  68. }
  69.  
  70. BringToFrontPatch::BringToFrontPatch()
  71. {
  72.     // initialize instance variables.
  73.     GetIndString(finderName,128,1);
  74.     eventPatch = sePatch;
  75.     
  76.     // install the appropriate patch.
  77.     GenericPatch::InitGenericPatch(_BringToFront, sizeof(BringToFrontParameters));
  78.     Install();
  79. } 
  80.  
  81.  
  82. BringToFrontPatch::~BringToFrontPatch()
  83. {
  84.  
  85. }
  86.  
  87.  
  88.  
  89. void BringToFrontPatch::Behavior()
  90. {
  91.     BringToFrontParameters* params;
  92.     
  93.     WindowPeek        front, tmpFinderWindow;
  94.     
  95.     
  96.     params = (BringToFrontParameters*)itsFrame->parameters;
  97.     
  98.     if( *((long *)LMGetCurApName()) ==  *((long *)finderName) ) {
  99.         if(EqualString(LMGetCurApName(), finderName, FALSE, FALSE)) {
  100.             eventPatch->frontFinderWindow = params->itsWindow;
  101.         }
  102.     }
  103. }
  104.  
  105.  
  106. SystemEventPatch::SystemEventPatch()
  107. {
  108.     // initialize instance variables.
  109.     GetIndString(finderName,128,1);
  110.     pack3Patch = thePatch;
  111.     frontFinderWindow = NULL;
  112.     
  113.     // install the appropriate patch.
  114.     GenericPatch::InitGenericPatch(_SystemEvent, sizeof(SystemEventParameters));
  115.     Install();
  116. } 
  117.  
  118. void SystemEventPatch::Behavior()
  119. {
  120.     SystemEventParameters* params;
  121.     
  122.     EventRecord    *evt;
  123.     WindowPeek        front, tmpFinderWindow;
  124.     Handle        wRefCon, windowInfo;
  125.     GrafPtr        savePort;
  126.     Point        mousePoint, localPoint;
  127.     long        dirID;
  128.     short        vRefNum, *shortPtr;        
  129.     StringPtr    curAp = LMGetCurApName();
  130.     
  131.     params = (SystemEventParameters*)itsFrame->parameters;
  132.     evt = params->theEvt;
  133.     
  134.     
  135.     if( *((long *)curAp) ==  *((long *)finderName) ) {
  136.         if(EqualString(curAp, finderName, FALSE, FALSE)) {
  137.             frontFinderWindow = (WindowPtr)LMGetWindowList();
  138.         }
  139.     }
  140.     
  141.     //After it is set, check for mouse downs.  outside of SF dialogs.
  142.     if(evt->what == mouseDown) {
  143.     
  144.     
  145.         front = (WindowPeek)FrontWindow();        //Get the current front window
  146.         if(front!= NULL) {                        //If we got a window
  147.             wRefCon = (Handle)GetWRefCon(front);        //Grab its refcon
  148.             if(wRefCon == (Handle)0x73746466) {            //We're in an SF dialog
  149.                 BlockMove(&evt->where, &mousePoint, 4);
  150.                 localPoint = mousePoint;
  151.                 GetPort(&savePort);
  152.                 SetPort(front);
  153.                 GlobalToLocal(&localPoint);
  154.                 if(!PtInRect(localPoint, &front->port.portRect)) {
  155.                     tmpFinderWindow = frontFinderWindow;
  156.                     while( tmpFinderWindow != NULL) {
  157.                         wRefCon = (Handle)GetWRefCon(tmpFinderWindow);
  158.                         if(wRefCon != 0) {
  159.                             localPoint = mousePoint;
  160.                             
  161.                             SetPort(tmpFinderWindow);
  162.                             GlobalToLocal(&localPoint);
  163.                             if(PtInRect(localPoint, &tmpFinderWindow->port.portRect)) {
  164.                                 windowInfo = (char *)*wRefCon + 8;
  165.                                 if(windowInfo) {
  166.                                     windowInfo = *windowInfo;
  167.                                     windowInfo = *windowInfo + 0x00000030;
  168.                                     dirID = (long)*windowInfo;
  169.                                     windowInfo +=1;
  170.                                     shortPtr = (short *)windowInfo;
  171.                                     vRefNum = (short)*shortPtr;
  172.                                     pack3Patch->SetDirectory(dirID, vRefNum);
  173.                                     
  174.                                     evt->what = nullEvent;
  175.                                     break;
  176.                                 }
  177.                             }
  178.                         }
  179.                         tmpFinderWindow = tmpFinderWindow->nextWindow;
  180.                     }
  181.                 }
  182.                 SetPort(savePort);
  183.             }
  184.         }
  185.     }
  186.     
  187.         
  188. }
  189.  
  190.  
  191.  
  192. Pack3Patch::Pack3Patch()
  193. {
  194.     SysEnvRec    theSERec;
  195.     CursHandle    cursH1, cursH2;
  196.     Size        cs1, cs2;
  197.     short        tmpShort;
  198.     
  199.     // initialize instance variables.
  200.     nextDirID = 0;
  201.     nextVRefNum = 0;
  202.     
  203.     // install the appropriate patch.
  204.     GenericPatch::InitGenericPatch(_Pack3, sizeof(CustomGetParameters));
  205.     Install();
  206. }
  207.  
  208. Pack3Patch::~Pack3Patch()
  209. {
  210.  
  211. }
  212.  
  213. void Pack3Patch::Behavior()
  214. {
  215.     Pack3Parameters        *params = (Pack3Parameters*)itsFrame->parameters;
  216.     SFPutParameters        *sfputParams;
  217.     SFPPutParameters    *sfpputParams;
  218.     SFGetParameters        *sfgetParams;
  219.     SFPGetParameters    *sfpgetParams;
  220.     StandardPutParameters    *standardPutParams;
  221.     StandardGetParameters    *standardGetParams;
  222.     CustomPutParameters    *customPutParams;
  223.     CustomGetParameters    *customGetParams;
  224.     Point where = {-1,-1};
  225.     Point oldWhere = {100,100};
  226.  
  227.  
  228.     switch(params->itsMethod) {
  229.         case 1:            //SFPutFile
  230.             sfputParams = (SFPutParameters*)itsFrame->parameters;
  231.             oldFilter = sfputParams->dlgHook;
  232.             sfputParams->dlgHook = OldDialogHook;
  233.             replyPtr = sfputParams->reply;
  234.         
  235.             break;
  236.         
  237.         case 2:            //SFGetFile
  238.             sfgetParams = (SFGetParameters*)itsFrame->parameters;
  239.  
  240.             oldFilter = sfgetParams->dlgHook;
  241.             sfgetParams->dlgHook = OldDialogHook;
  242.             replyPtr = sfgetParams->reply;
  243.             
  244.             break;
  245.             
  246.         case 3:         //SFPPutFile
  247.             sfpputParams = (SFPPutParameters*)itsFrame->parameters;
  248.  
  249.             oldFilter = sfpputParams->dlgHook;
  250.             sfpputParams->dlgHook = OldDialogHook;
  251.             replyPtr = sfpputParams->reply;
  252.             break;
  253.             
  254.         case 4:            //SFPGetFile
  255.             sfpgetParams = (SFPGetParameters*)itsFrame->parameters;
  256.  
  257.             oldFilter = sfpgetParams->dlgHook;
  258.             sfpgetParams->dlgHook = OldDialogHook;
  259.             replyPtr = sfpgetParams->reply;
  260.             break;
  261.             
  262.         case 5:            //StandardPutFile
  263.             standardPutParams = (StandardPutParameters*)itsFrame->parameters;
  264.  
  265.             {
  266.                 CustomPutPack3ProcPtr        proc;
  267.                 proc = (CustomPutPack3ProcPtr)this->itsOld;
  268.                 
  269.                 proc(standardPutParams->prompt,standardPutParams->defaultName,standardPutParams->reply,sfPutDialogID,where,NewDialogHook,NULL,NULL,NULL,this, 7);
  270.             
  271.             /*
  272.                 An exercise left to the reader...
  273.                 
  274.                 Open the folder in the finder when the option key is pressed 
  275.                 down and a file selected, this way if it isn't openned, they can
  276.                 also see where the file went.  (Remember, the file might not exist 
  277.                 yet...)
  278.             */
  279. //                if( (standardPutParams->reply->sfGood) && (IsPressed(optionKeyCode))) {
  280. //                    OpenSelection(true, &standardPutParams->reply->sfFile);
  281. //                }
  282.             }
  283.                         
  284.             AbortTrap();
  285.             break;
  286.             
  287.         case 6:            //StandardGetFile
  288.             standardGetParams = (StandardGetParameters*)itsFrame->parameters;
  289.  
  290.             {
  291.                 CustomGetPack3ProcPtr        proc;
  292.                 proc = (CustomGetPack3ProcPtr)this->itsOld;
  293.                 this->oldFileFilter = standardGetParams->fileFilter;
  294.                 
  295.                 proc(CustomFileFilter,standardGetParams->numTypes,standardGetParams->typeList,standardGetParams->reply,sfGetDialogID,where,NewDialogHook,NULL,NULL,NULL,this, 8);
  296.                 
  297. //                if( (standardGetParams->reply->sfGood) && (IsPressed(optionKeyCode))) {
  298. //                    OpenSelection(true, &standardGetParams->reply->sfFile);
  299. //                }
  300.             }
  301.             AbortTrap();
  302.             break;
  303.             
  304.         case 7:            //CustomPutFile
  305.             customPutParams = (CustomPutParameters*)itsFrame->parameters;
  306.         
  307.             oldFilter = customPutParams->dlgHook;
  308.             customPutParams->dlgHook = NewDialogHook;
  309.             theirDataPtr = customPutParams->yourDataPtr;
  310.             replyPtr = customPutParams->reply;
  311.             customPutParams->yourDataPtr = (void *)this;
  312.             break;
  313.             
  314.         case 8:            //CustomGetFile
  315.             customGetParams = (CustomGetParameters*)itsFrame->parameters;
  316.         
  317.             oldFilter = customGetParams->dlgHook;
  318.             customGetParams->dlgHook = NewDialogHook;
  319.             theirDataPtr = customGetParams->yourDataPtr;
  320.             replyPtr = customGetParams->reply;
  321.             customGetParams->yourDataPtr = (void *)this;
  322.             break;
  323.     }
  324.     nextDirID = 0;
  325.     nextVRefNum = 0;
  326. }
  327.  
  328.  
  329. void Pack3Patch::SetDirectory(long    dirID, short vRefNum)
  330. {
  331.     nextDirID = dirID;
  332.     nextVRefNum = vRefNum;
  333. }
  334.  
  335. pascal Boolean    CustomFileFilter(ParmBlkPtr    param, void *myData)
  336. {
  337.     Pack3Patch     *p3patch = (Pack3Patch *)myData;
  338.     FileFilterProcPtr    newProc = p3patch->oldFileFilter;
  339.     
  340.     if(newProc==nil) return FALSE;
  341.     
  342.     return (newProc(param));
  343.  
  344. }
  345.  
  346. pascal short NewDialogHook(short item, DialogPtr theDialog, void *yourDataPtr)
  347. {
  348.     StandardFileReply *replyPtr;
  349.     Pack3Patch    *myObject;
  350.  
  351.      myObject = (Pack3Patch    *)yourDataPtr;
  352.     replyPtr = (StandardFileReply *)myObject->replyPtr;
  353.      
  354.     if (myObject->nextDirID != 0) {
  355.         item = sfHookChangeSelection;
  356.         replyPtr->sfFile.vRefNum = myObject->nextVRefNum;  // re-aim standard file at root
  357.         replyPtr->sfFile.parID = myObject->nextDirID;
  358.         replyPtr->sfFile.name[0] = 0;
  359.         
  360.         myObject->nextDirID = 0;
  361.         myObject->nextVRefNum = 0;
  362.     }
  363.      else {
  364.          dlgHookProc    oldDlgHook = myObject->oldFilter;
  365.          
  366.          if(oldDlgHook != NULL) {
  367.              item = oldDlgHook(item, theDialog, myObject->theirDataPtr);
  368.          }
  369.      }
  370.     return item;
  371. }
  372.  
  373. pascal short OldDialogHook(short item, DialogPtr theDialog)
  374. {
  375.     OSErr    gestaltErr;
  376.     long    gestaltResponse;
  377.     Pack3Patch    *myObject;
  378.     gestaltErr = Gestalt('QsfQ', &gestaltResponse);
  379.     
  380.     if((gestaltErr == noErr) && (gestaltResponse != 0)) {
  381.     
  382.         myObject = (Pack3Patch *)gestaltResponse;
  383.         
  384.         if (myObject->nextDirID != 0) {
  385.             item = sfHookRebuildList;    // re-aim standard file at root
  386.             LMSetCurDirStore(myObject->nextDirID);// side-effect is, volume name won't be changed
  387.             LMSetSFSaveDisk(-(myObject->nextVRefNum)); // in upper-right corner...
  388.             
  389.             myObject->nextDirID = 0;
  390.             myObject->nextVRefNum = 0;
  391.         }
  392.          else {
  393.              oldDlgHookProc    oldDlgHook = myObject->oldFilter;
  394.              
  395.              if(oldDlgHook != NULL) {
  396.                  item = oldDlgHook(item, theDialog);
  397.              }
  398.          }
  399.      }
  400.  
  401.     return item;
  402. }
  403.  
  404.  
  405. //
  406. //    Install routine. This is where you allocate your patch objects.
  407. //    Throw an exception if something fails.
  408. //
  409. void Install()
  410. {
  411.     long             theSize;
  412.     short            doIt;
  413.     
  414.     RememberA4();
  415. #ifndef CDEV    
  416.     try {
  417.         //Read preferences to see if we should load
  418.         // if extension succeeds, show happy icon.
  419.         thePatch = new Pack3Patch;        
  420.         sePatch = new SystemEventPatch;    
  421.         cwPatch = new CloseWindowPatch;
  422.         btfPatch = new BringToFrontPatch;
  423.         InstallSelector();
  424.         ShowIconFamily(128);
  425.     } catch {
  426.         // extension failed, show sad icon.
  427.         ShowIconFamily(129);
  428.         throw(theException);
  429.     }
  430. #endif CDEV
  431. }
  432.  
  433. //
  434. //    Remove routine. This is called when system is shutdown.
  435. //    Perhaps this should be removed. Rob thinks it shouldn't even be
  436. //    part of the design.
  437. //
  438.  
  439. void Remove()
  440. {
  441.     Patch::RemoveAll();
  442. }
  443.  
  444. //
  445. // debugging printf.
  446. //
  447.  
  448. static int dprintf(const char* format, ...)
  449. {
  450.     va_list args;
  451.     static char str[256];
  452.     int count;
  453.  
  454. #ifndef CDEV    
  455.     va_start(args, format);
  456.     count = vsprintf(str, format, args);
  457.     va_end(args);
  458.     DebugStr(c2pstr(str));
  459. #endif CDEV    
  460.         
  461.     return count;
  462. }
  463.  
  464. Boolean IsPressed(unsigned short k)
  465. /*
  466.  *  Check to see if key number k is currently held down
  467.  */
  468. {
  469.     unsigned char    km[16];
  470.     
  471.     GetKeys(km);        //Get the KeyMap
  472.     return((km[k>>3]>>(k&7))&1);  //Check required bit
  473. }
  474.  
  475.  
  476.  
  477. pascal OSErr DataSelector(OSType selector, long    *response);
  478. void    InstallSelector(void);
  479.  
  480. void    InstallSelector(void)
  481. {
  482.     OSErr theErr;
  483.     Handle    gestFuncH;
  484.     ProcPtr oldGestaltFunc;
  485.     Str255    theNumStr;
  486.     
  487.     theErr = NewGestalt('QsfQ', (ProcPtr)DataSelector);
  488.     if(theErr != noErr) {
  489.         theErr = ReplaceGestalt('QsfQ', (ProcPtr)DataSelector, oldGestaltFunc);
  490.     }
  491. }
  492.  
  493. pascal OSErr DataSelector(OSType selector, long    *response)
  494. {
  495.     SetUpA4();
  496.     *response = (long)thePatch;
  497.     RestoreA4();
  498.     return noErr;
  499. }
  500.  
  501.  
  502.